home *** CD-ROM | disk | FTP | other *** search
- object FrmSpace: TFrmSpace
- Left = 381
- Top = 265
- HorzScrollBar.Visible = False
- VertScrollBar.Visible = False
- ActiveControl = ePath
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'Disk Space Used'
- ClientHeight = 152
- ClientWidth = 348
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- FormStyle = fsStayOnTop
- KeyPreview = True
- OldCreateOrder = False
- OnCloseQuery = FormCloseQuery
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnKeyDown = FormKeyDown
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object L4: TLabel
- Left = 8
- Top = 12
- Width = 37
- Height = 13
- Caption = 'Start In:'
- end
- object L5: TLabel
- Left = 8
- Top = 69
- Width = 114
- Height = 13
- Caption = 'Scan depth (0 = no limit)'
- end
- object b4: TBevel
- Left = 4
- Top = 125
- Width = 340
- Height = 2
- Anchors = [akLeft, akRight, akBottom]
- end
- object b3: TButton
- Left = 265
- Top = 89
- Width = 75
- Height = 25
- Caption = 'Close'
- ModalResult = 1
- TabOrder = 7
- end
- object p1: TPanel
- Left = 0
- Top = 0
- Width = 375
- Height = 122
- BevelOuter = bvNone
- TabOrder = 5
- Visible = False
- object L1: TLabel
- Left = 20
- Top = 23
- Width = 40
- Height = 13
- Caption = 'Files: %s'
- end
- object L2: TLabel
- Left = 20
- Top = 40
- Width = 53
- Height = 13
- Caption = 'Folders: %s'
- end
- object L6: TLabel
- Left = 12
- Top = 6
- Width = 35
- Height = 13
- Caption = 'Results'
- end
- object L3: TLabel
- Left = 21
- Top = 56
- Width = 98
- Height = 13
- Caption = 'Disk space used: %s'
- end
- object b2: TButton
- Left = 265
- Top = 89
- Width = 75
- Height = 25
- Caption = 'Close'
- Enabled = False
- ModalResult = 1
- TabOrder = 0
- TabStop = False
- end
- end
- object ePath: TEdit
- Left = 8
- Top = 27
- Width = 334
- Height = 21
- TabOrder = 0
- end
- object sLevel: TSpinEdit
- Left = 8
- Top = 92
- Width = 146
- Height = 22
- MaxValue = 0
- MinValue = 0
- TabOrder = 3
- Value = 0
- end
- object b1: TButton
- Left = 180
- Top = 89
- Width = 75
- Height = 25
- Caption = 'Check'
- TabOrder = 4
- OnClick = b1Click
- end
- object pb: TProgressBar
- Left = 4
- Top = 131
- Width = 340
- Height = 18
- Anchors = [akLeft, akRight, akBottom]
- Min = 0
- Max = 0
- TabOrder = 6
- end
- object cList: TCheckBox
- Left = 8
- Top = 52
- Width = 294
- Height = 17
- Caption = 'List directories recursively (Not supported by all servers)'
- TabOrder = 1
- OnClick = cListClick
- end
- object cNoLinks: TCheckBox
- Left = 8
- Top = 70
- Width = 297
- Height = 17
- Caption = 'Do not follow folder links'
- TabOrder = 2
- OnClick = cListClick
- end
- end
-